inherited FrmList_Lanc: TFrmList_Lanc
  Left = 233
  Top = 112
  Caption = 'Listagem de Lan'#231'amentos'
  ClientHeight = 520
  ClientWidth = 533
  OldCreateOrder = True
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 533
    Height = 347
    object Label1: TLabel
      Left = 62
      Top = 119
      Width = 37
      Height = 14
      Caption = 'Moeda'
    end
    object c_moeda: TSpeedButton
      Left = 138
      Top = 117
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = c_moedaClick
    end
    object Label2: TLabel
      Left = 24
      Top = 150
      Width = 75
      Height = 14
      Caption = 'Contabilidade'
    end
    object Label3: TLabel
      Left = 26
      Top = 205
      Width = 73
      Height = 14
      Caption = 'Tipo de Lan'#231'.'
    end
    object Label7: TLabel
      Left = 244
      Top = 258
      Width = 57
      Height = 28
      Caption = 'Somente'#13#10'Cheques?'
    end
    object Label8: TLabel
      Left = 10
      Top = 257
      Width = 89
      Height = 14
      Caption = 'Data Lan'#231'. Inicial'
    end
    object Label9: TLabel
      Left = 16
      Top = 281
      Width = 83
      Height = 14
      Caption = 'Data Lan'#231'. Final'
    end
    object Label10: TLabel
      Left = 391
      Top = 265
      Width = 29
      Height = 14
      Caption = 'Sa'#237'da'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 37
      Top = 11
      Width = 139
      Height = 14
      Caption = 'Empresa / Contas / Banco'
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object BtnInsereContas: TSpeedButton
      Left = 8
      Top = 6
      Width = 25
      Height = 18
      Hint = 'Insere um novo hist'#243'rico na lista.'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = BtnInsereContasClick
    end
    object Label13: TLabel
      Left = 24
      Top = 315
      Width = 75
      Height = 14
      Caption = 'Lan'#231'amentos'
    end
    object ListaConta: TCheckListBox
      Left = 8
      Top = 24
      Width = 521
      Height = 89
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 0
      OnKeyDown = ListaContaKeyDown
    end
    object ed_moeda: TEdit
      Left = 106
      Top = 117
      Width = 25
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 2
      TabOrder = 1
      OnEnter = ed_moedaEnter
      OnExit = ed_moedaExit
      OnKeyDown = ed_moedaKeyDown
      OnKeyPress = ed_moedaKeyPress
    end
    object p_moeda: TPanel
      Left = 170
      Top = 117
      Width = 351
      Height = 22
      BevelInner = bvLowered
      Color = 14081504
      TabOrder = 2
    end
    object p_contabil: TRadioGroup
      Left = 106
      Top = 140
      Width = 415
      Height = 34
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        'Lan'#231'ados'
        'N'#227'o Lan'#231'ados'
        'Todos')
      TabOrder = 3
    end
    object p_tic: TRadioGroup
      Left = 106
      Top = 174
      Width = 177
      Height = 72
      ItemIndex = 0
      Items.Strings = (
        'Ticados'
        'N'#227'o Ticados'
        'Todos')
      TabOrder = 4
      OnClick = p_ticClick
    end
    object Panel5: TPanel
      Left = 288
      Top = 175
      Width = 233
      Height = 66
      BevelOuter = bvNone
      Color = 14936298
      TabOrder = 5
      object Label5: TLabel
        Left = 24
        Top = 14
        Width = 76
        Height = 14
        Caption = 'Data Tic. Incial'
      end
      object Label6: TLabel
        Left = 24
        Top = 38
        Width = 73
        Height = 14
        Caption = 'Data Tic. Final'
      end
      object ed_datatic_ini: TDateEdit
        Left = 112
        Top = 12
        Width = 121
        Height = 21
        NumGlyphs = 2
        TabOrder = 0
      end
      object ed_datatic_fim: TDateEdit
        Left = 112
        Top = 36
        Width = 121
        Height = 21
        NumGlyphs = 2
        TabOrder = 1
      end
    end
    object p_cheque: TRadioGroup
      Left = 304
      Top = 247
      Width = 73
      Height = 51
      ItemIndex = 0
      Items.Strings = (
        'Sim'
        'N'#227'o')
      TabOrder = 8
    end
    object ed_data_ini: TDateEdit
      Left = 106
      Top = 254
      Width = 121
      Height = 21
      NumGlyphs = 2
      TabOrder = 6
    end
    object ed_data_fim: TDateEdit
      Left = 106
      Top = 279
      Width = 121
      Height = 21
      NumGlyphs = 2
      TabOrder = 7
    end
    object p_saida: TRadioGroup
      Left = 422
      Top = 247
      Width = 103
      Height = 51
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ItemIndex = 0
      Items.Strings = (
        'Impressora'
        'Tela')
      ParentFont = False
      TabOrder = 9
      OnClick = p_saidaClick
    end
    object rgTipo: TRadioGroup
      Left = 107
      Top = 304
      Width = 270
      Height = 34
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        'Todos'
        'Cr'#233'dito'
        'D'#233'bito')
      TabOrder = 10
    end
  end
  inherited Panel2: TPanel
    Top = 453
    Width = 533
    inherited bimprimir1: TBitBtn
      Left = 21
    end
    inherited btncancelar1: TBitBtn
      Left = 216
    end
    inherited bimprimir: TFlatButton
      Enabled = True
      OnClick = bimprimirClick
    end
    inherited btncancelar: TFlatButton
      Left = 211
      OnClick = btncancelarClick
    end
    inherited btnfechar: TFlatButton
      Left = 410
    end
  end
  inherited sb: TStatusBar
    Top = 501
    Width = 533
  end
  inherited Panel3: TPanel
    Width = 533
    object Label16: TLabel [1]
      Left = 170
      Top = 11
      Width = 211
      Height = 13
      Caption = 'R15+USUARIO+TIPO - arquivo texto auxiliar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    inherited ListaEmp: TCheckListBox
      OnClick = ListaEmpClick
    end
  end
  object PnlGrid: TPanel [4]
    Left = 511
    Top = 160
    Width = 522
    Height = 225
    Color = clGray
    TabOrder = 4
    Visible = False
    object Label12: TLabel
      Left = 16
      Top = 8
      Width = 420
      Height = 20
      Caption = 'Contas relacionadas com as empresas selecionadas'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DbgContas: TDBGrid
      Left = 1
      Top = 32
      Width = 520
      Height = 192
      Hint = 'Duplo clique para enviar conta para a listagem.'
      Align = alBottom
      Color = clTeal
      DataSource = DsConta
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DbgContasDblClick
      OnKeyDown = DbgContasKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'Emp_codigo'
          Title.Caption = 'Empresa'
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'conta_codigo'
          Title.Caption = 'Conta'
          Width = 71
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ban_descricao'
          Title.Caption = 'Nome do Banco'
          Width = 343
          Visible = True
        end>
    end
    object BtnSair: TBitBtn
      Left = 456
      Top = 4
      Width = 36
      Height = 25
      Caption = 'Sair'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BtnSairClick
    end
    object ckInativas: TCheckBox
      Left = 398
      Top = 34
      Width = 97
      Height = 16
      Caption = 'Mostrar Inativas'
      Checked = True
      Color = clBtnFace
      ParentColor = False
      State = cbChecked
      TabOrder = 2
      OnClick = ckInativasClick
    end
  end
  inherited RDP: TRDprint
    OnNewPage = RDPNewPage
    OnBeforeNewPage = RDPBeforeNewPage
  end
  object DsConta: TDataSource
    AutoEdit = False
    DataSet = CdsConta
    Left = 416
    Top = 8
  end
  object CdsConta: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 440
    Top = 8
    object CdsContaEmp_codigo: TStringField
      FieldName = 'Emp_codigo'
      Size = 3
    end
    object CdsContaconta_codigo: TStringField
      FieldName = 'conta_codigo'
      Size = 13
    end
    object CdsContaban_descricao: TStringField
      FieldName = 'ban_descricao'
      Size = 40
    end
    object CdsContaAtiva: TBooleanField
      FieldName = 'Ativa'
    end
  end
  object CDS: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 416
    Top = 56
    object CDSHist_Codigo: TStringField
      FieldName = 'Hist_Codigo'
    end
    object CDSValor: TFloatField
      FieldName = 'Valor'
    end
  end
end
